f1='ACTIVITX.DBF'
f2='REVENUEX.DBF'
f3='ACT_PROX.DBF'
f4='ACT_PHAX.DBF'
f5='DOCT_FEX.DBF'
IF FILE("&DR2&F1")
   use &DR2&f1
   if fil_lock(0)
      copy to &DR5&f1
   endif
   unlock
ENDIF
IF FILE("&DR2&F2")
   use &DR2&f2
   if fil_lock(0)
      copy to &DR5&f2
   endif
   unlock
ENDIF
IF FILE("&DR2&F3")
   use &DR2&f3
   If fil_lock(0)
      copy to &DR5&f3
   endif
   unlock
ENDIF
IF FILE("&DR2&F4")
   use &DR2&f4
   if fil_lock(0)
      copy to &DR5&f4
   endif
unlock
ENDIF
IF FILE("&DR2&F5")
   use &DR2&f5
   if fil_lock(0)
      copy to &DR5&f5
   endif
unlock
ENDIF
clos data
f1='ACTIVIT2.DBF'
f2='REVENUE2.DBF'
f3='ACT_PRO2.DBF'
f4='ACT_PHA2.DBF'
f5='DOCT_FE2.DBF'
IF FILE("&DR2&F1")
   use &DR2&f1
   if fil_lock(0)
      copy to &DR5&f1
   endif
   unlock
ENDIF
IF FILE("&DR2&F2")
   use &DR2&f2
   if fil_lock(0)
      copy to &DR5&f2
   endif
   unlock
ENDIF
IF FILE("&DR2&F3")
   use &DR2&f3
   If fil_lock(0)
      copy to &DR5&f3
   endif
   unlock
ENDIF
IF FILE("&DR2&F4")
   use &DR2&f4
   if fil_lock(0)
      copy to &DR5&f4
   endif
   unlock
ENDIF
IF FILE("&DR2&F5")
   use &DR2&f5
   if fil_lock(0)
      copy to &DR5&f5
   endif
   unlock
ENDIF
CLOS ALL
return

